home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 December
/
1988-12.d64
/
program merge
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
40 lines
10 rem copyright 1988 compute! publications, inc. - all rights reserved
20 print"[147] copyright 1988 compute! pub., inc."
30 printtab(11)"all rights reserved":sa=49152
40 v1=sa+96:h1=int(v1/256):l1=v1-h1*256:v2=sa+197:h2=int(v2/256):l2=v2-h2*256
50 fori=satosa+234:readd:ck=ck+d:pokei,d:next
60 ifck<>29233thenprint"*** error in data statements ***":end
70 pokesa+28,l1:pokesa+33,h1:pokesa+38,l2:pokesa+43,h2
80 printchr$(147);"program merge installed at";sa:end
90 rem machine language data
100 data 32,231,255,173,2,3,141,235
110 data 192,173,3,3,141,236,192,173
120 data 44,3,141,237,192,173,45,3
130 data 141,238,192,169,96,141,2,3
140 data 169,192,141,3,3,169,197,141
150 data 44,3,169,192,141,45,3,32
160 data 212,225,165,186,201,8,144,91
170 data 169,1,166,186,160,3,32,186
180 data 255,32,192,255,32,175,245,162
190 data 1,32,198,255,32,228,255,32
200 data 228,255,32,183,255,201,0,208
210 data 58,169,202,160,192,32,30,171
220 data 162,1,32,198,255,32,228,255
230 data 32,228,255,32,183,255,201,0
240 data 208,40,32,228,255,133,20,32
250 data 228,255,133,21,169,5,141,239
260 data 192,32,228,255,172,239,192,153
270 data 251,1,201,0,240,47,238,239
280 data 192,208,238,169,211,160,192,32
290 data 30,171,173,235,192,141,2,3
300 data 173,236,192,141,3,3,173,237
310 data 192,141,44,3,173,238,192,141
320 data 45,3,169,1,32,195,255,32
330 data 204,255,76,116,164,132,11,32
340 data 19,166,76,167,164,169,1,76
350 data 49,243,13,77,69,82,71,73
360 data 78,71,0,13,63,70,73,76
370 data 69,32,78,79,84,32,70,79
380 data 85,78,68,32,32,69,82,82
390 data 79,82,0